Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / retrieve.arc / RETRIEVE.DOC next >

Wrap

Text File | 1984-12-05 | 42.0 KB | 1,431 lines

RETRIEVE: A REFERENCE ARTICLE CITATION FILING AND RETRIEVAL SYSTEM USING THE dBASE II* RELATIONAL DATABASE MANAGEMENT SYSTEM David A. Lathrop, Ph.D. CARDIAC ELECTROPHYSIOLOGY LABORATORY CHILDREN'S HOSPITAL RESEARCH FOUNDATION CINCINNATI, OHIO 45229 (513) 559-4482 I. DESCRIPTION: R+E+T+R+I+E+V+┼ i≤ ß collectioε oµ dBAS┼ II¬ commanΣ ì file≤ whicΦ allo≈ creatioε oµ ß referencσ articlσ citatioε ì databasσ fo≥ retrieva∞ b∙ aε assigneΣ referencσ number¼ ì author¼ title¼ source¼ o≥ ke∙ word« T∩ usσ thσ system¼ yo⌡ ì mus⌠ posses≤ ß versioε oµ thσ dBAS┼ II¬ assembly-languagσ ì relationa∞ databasσ managemen⌠ system« Thσ R+E+T+R+I+E+V+┼ systeφ allow≤ thσ use≥ t∩ storσ ì referencσ articlσ citation≤ b∙ authors¼ title¼ source¼ ke∙ ì word≤ anΣ ß codσ t∩ bσ useΣ iε filinτ thσ origina∞ article« ì Thi≤ i≤ donσ b∙ allowinτ thσ use≥ t∩ inpu⌠ record≤ int∩ ß ì dBAS┼ II¬ databasσ filσ nameΣ REFS.DB╞ havinτ thσ followinτ ì structure: FL─ NAM┼ TYP┼ WIDTH --- ---- ---- ----- 00▒ REF:N╧ ├ 005 00▓ AUTHOR╙ ├ 080 00│ TITL┼ ├ 160 00┤ SOURC┼ ├ 080 00╡ KWORD╙ ├ 080 Thσ systeφ consist≤ oµ oµ thσ followinτ ninσ dBAS┼ I╔ ì commanΣ files║ RETRIEVE.CM─ NEWENTRY.CM─ AUTONUMB.CM─ FIND.CMD FASTFIND.CM─ INDEX.CM─ LABEL.CM─ EDIT.CMD Onl∙ onσ databasσ filσ i≤ created¼ REFS.DBF« Inde° ì file≤ arσ createΣ oε fou≥ oµ thσ fields╗ REF#.NDX¼ ì AUTHORS.NDX¼ SOURCE.NDX¼ anΣ KWORDS.NDX« OPERATION: Oncσ yo⌡ havσ typeΣ 'D╧ RETRIEVEº thσ monito≥ screeε ì wil∞ blanδ anΣ ß messagσ wil∞ appea≥ askinτ you¼ thσ user¼ ì t∩ ente≥ thσ date« Afte≥ yo⌡ havσ donσ so¼ anothe≥ messagσ ì wil∞ appea≥ askinτ iε whicΦ disδ drivσ yo⌡ havσ placeΣ you≥ ì R+E+T+R+I+E+V+┼ systeφ storagσ diskette« Iµ yo⌡ havσ ì followeΣ thσ step≤ iε thσ INSTALLATIO╬ section¼ ente≥ 'B' iε ì responsσ t∩ thi≤ promp⌠ anΣ thσ maiε R+E+T+R+I+E+V+┼ prograφ ì men⌡ wil∞ appear. *** REPRINT FILE MENU *** 0 - EXIT PROGRAM 1 - ENTER NEW ARTICLES 2 - ENTER NEW ARTICLES WITH (AUTOMATIC REFERENCE NUMBERING) 3 - FIND ARTICLES 4 - QUICKLY FIND ARTICLES (BY FIRST AUTHOR, FIRST KEY WORD, OR FIRST 20 LTRS OF SOURCE) 5 - LOCATE ARTICLES & MAKE TEXT FILE 6 - RE-INDEX FILES 7 - MAKE LABELS FOR ARTICLES 8 - EDIT DATA BASE RECORDS ENTER DESIRED ACTION WAITING OPTION 0 - EXIT Iµ yo⌡ no≈ typσ '0'¼ thσ prograφ wil∞ exi⌠ t∩ thσ CP/═ ì promp⌠ afte≥ firs⌠ displayinτ ß messagσ tellinτ yo⌡ ho≈ man∙ ì record≤ arσ presentl∙ containeΣ iε thσ datß basσ (REFS.DBF). *** REFS.DBF CONTAINS 1043 RECORDS *** *** END RUN dBASE II *** A> *¬ NOT┼ *¬ T∩ re-rente≥ R+E+T+R+I+E+V+┼ typσ 'D╧ RETRIEVE'. OPTION 1 - ENTER NEW ARTICLES: Iµ yo⌡ haΣ entereΣ '1'¼ thσ prograφ woulΣ havσ beeε ì directeΣ t∩ thσ commanΣ filσ NEWENTRY.CM─ anΣ afte≥ ì answerinτ thσ prompt¼ '*¬ WAN╘ T╧ CONTINUE┐ (Y/N⌐ **º b∙ ì typinτ 'Y'¼ thσ followinτ inpu⌠ forφ woulΣ appea≥ oε you≥ ì monitor: REPRINT INFORMATION ENTRY FORM REF. NO. : : AUTHORS : : : : TITLE : : : : : : : : : : SOURCE : : : : KEY WORDS : : : : Thi≤ inpu⌠ forma⌠ allow≤ fivσ character≤ fo≥ aε alpha-ì numeriπ codσ unde≥ whicΦ t∩ filσ thσ article¼ 8░ character≤ ì t∩ ente≥ thσ author≤ name(s)¼ 16░ character≤ fo≥ thσ titlσ ì oµ thσ article¼ 8░ character≤ fo≥ itsº source¼ anΣ 8░ ì character≤ fo≥ ke∙ indexinτ words« Thσ systeφ wa≤ designeΣ s∩ tha⌠ article≤ arσ assigneΣ ì code≤ consistinτ oµ thσ firs⌠ lette≥ oµ thσ firs⌠ author'≤ ì las⌠ namσ followeΣ b∙ ß number« Thσ numbe≥ simpl∙ tell≤ iµ ì thσ articlσ i≤ thσ 1¼ 2¼ 3¼ ...nthö articlσ witΦ firs⌠ ì author≤ whosσ las⌠ namesº begiε witΦ ß particula≥ lette≥ iε ì thσ owner'≤ referencσ file« Thi≤ numbe≥ i≤ incrementeΣ b∙ ì onσ eacΦ timσ thσ filσ owne≥ receive≤ ß ne≈ articlσ whosσ ì firs⌠ author'≤ las⌠ namσ begin≤ witΦ thσ samσ letter« Thi≤ ì codinτ systeφ allow≤ thσ filσ owne≥ t∩ maintaiε ß filσ witΦ ì u≡ t∩ 259,97┤ seperatσ citations« An∙ codinτ systeφ usinτ ╡ ì characte≥ alpha-numerics¼ however¼ ma∙ bσ used« *¬ IMPORTAN╘ *¬ Thσ firs⌠ author'≤ namσ mustô bσ ì entereΣ last-name-firs⌠ iε orde≥ fo≥ optioε ┤ (QUICKL┘ FIN─ ì ARTICLES⌐ t∩ functioε correctly« Aε articlσ b∙ DaviΣ A« ì Lathro≡ anΣ Johε Doe¼ therefore¼ woulΣ bσ entereΣ a≤ ì 'Lathrop¼ D.A.¼ Doe¼ J.'« Aε examplσ oµ ß completeΣ inpu⌠ ì i≤ showε below:è REPRINT INFORMATION ENTRY FORM REF. NO. :L0003: AUTHORS :Lathrop, D.A., Bailey, J.C. : : : TITLE :The high resistance junction between the : :canine left bundle branch and adjacent : :ventricular septal muscle. : : : : : SOURCE :Clin. Res. 23(4):472A, 1975 : : : KEY WORDS :electrotonus - left bundle branch : : : OPTIO╬ ▓ - ENTE╥ ARTICL┼ WIT╚ AUTOMATI├ REFERENC┼ NUMBERING: Thi≤ optioε i≤ simila≥ t∩ optioε 1¼ excep⌠ tha⌠ thσ ì R+E+T+R+I+E+V+┼ prograφ wil∞ searcΦ thσ databasσ filσ ì (REFS.DBF⌐ fo≥ thσ las⌠ referencσ numbe≥ entereΣ fo≥ ß ì particula≥ letter¼ increment≤ thi≤ numbe≥ b∙ ▒ anΣ assign≤ ì t∩ thσ ne≈ citatioε ß codσ consistinτ oµ thσ firs⌠ lette≥ oµ ì thσ firs⌠ author'≤ las⌠ namσ plu≤ thσ number« *¬ IMPORTAN╘ *¬ Usσ oµ thi≤ optioε assume≤ thσ usσ oµ ì thσ codinτ systeφ suggesteΣ unde≥ optioε 1í Thσ followinτ ì show≤ aε examplσ oµ ß completeΣ optioε ▓ inpu⌠ forφ anΣ thσ ì resultinτ referencσ numbe≥ assigneΣ t∩ thσ articlσ b∙ thσ ì program: REPRIN╘ INFORMATIO╬ ENTR┘ FORM AUTHOR╙ :Lathrop¼ D.A.¼ Elharrar¼ V.¼ Foster¼ P.R.: :Bailey¼ J.C.¼ Zipes¼ D.P« : TITLE :Suppression of barium induced automa- : :ticity with manganese and verapamil. : : : : : : : SOURCE :Clin. Res. 23(4):472A, 1975 : : : KEY WORDS :barium - manganese - verapamil - calcium : : : REF. NO. :L0004: OPTION 3 - FIND ARTICLES Thi≤ optioε allow≤ thσ use≥ t∩ locatσ record≤ withiε ì thσ datß basσ b∙ matchinτ u≡ t∩ threσ substring≤ founΣ iε u≡ ì t∩ threσ differen⌠ recorΣ fields« Thσ substring≤ ma∙ bσ ì entereΣ iε eithe≥ UPPE╥ o≥ lowe≥ caseí Thσ outpu⌠ oµ thi≤ ì optioε ma∙ bσ displayeΣ eithe≥ oε thσ monito≥ o≥ thσ ì printer« *¬ NOT┼ *¬ Thi≤ optioε ma∙ bσ usσ t∩ lis⌠ allô oµ thσ ì citation≤ containeΣ withiε thσ databasσ b∙ enterinτ '3º fo≥ ì thσ 1s⌠ FIEL─ T╧ SEARC╚ ON¼ `<SPACE>º fo≥ thσ SUBSTRIN╟ T╧ ì LOCATE¼ anΣ defaultinτ (i.e.ô '<RETUNR>'⌐ througΦ thσ ì remaininτ SEARC╚ INFORMATIO╬ prompts. Thσ followinτ show≤ aε examplσ oµ thσ monito≥ inpu⌠ ì informatioε screen¼ thσ user'≤ responses¼ anΣ thσ firs⌠ ì printeΣ resul⌠ obtaineΣ durinτ usσ oµ optioε 3: *** REFS.DBF CONTAINS 1043 RECORDS *** EACH RECORD CONSISTS OF 5 FIELDS: (1) REF:NO (4) SOURCE (2) AUTHORS (5) KWORDS (3) TITLE _________________________________________ è ** ENTER SEARCH INFORMATION ** 1st FIELD TO SEARCH ON (1-5) :2: SUBSTRING TO LOCATE :LATHROP : 2nd FIELD TO SEARCH ON (1-5) :3: SUBSTRING TO LOCATE :HUMAN : 3rd FIELD TO SEARCH ON (1-5) :5: SUBSTRING TO LOCATE :DILTIAZEM : DO YOU WANT RESULTS PRINTED? (Y/N) :y: -------------------- REF. NO. : L0002 AUTHOR(S) : Lathrop, D.A., Valle, R., Gaum, W.E. Schwartz, A., Kaplan, S. TITLE : The effect of diltiazem and nisoldipine on spontaneously active human atrial tissue. SOURCE : J. Molec. Cell. Cardiol. 13(1):111-115, 1981 KEY WORDS : diltiazem - nisoldipine - human atrium - calcium blockers OPTION 4 - QUICKLY FIND ARTICLES Thi≤ optioε i≤ simila≥ t∩ optioε 3« It≤ majo≥ ì advantagσ i≤ speed« Optioε 4¼ however¼ ha≤ somσ ì disadvantage≤ ove≥ optioε 3« Thesσ arσ tha⌠ optioε ┤ wil∞ ì onlyô finΣ article≤ wherσ thσ entereΣ author'≤ name¼ ke∙ ì word,orô thσ firs⌠ 2░ character≤ oµ thσ sourcσ arσ firstô iε ì thσ databasσ filσ records« Iµ thσ use≥ want≤ t∩ looδ fo≥ ì article≤ wherσ ß particula≥ autho≥ i≤ thσ firs⌠ autho≥ thi≤ ì optioε wil∞ bσ u≡ t∩ 1░ time≤ fasterô (dependinτ oε thσ sizσ ì oµ thσ database⌐ thaε optioε threσ iε findinτ thσ citations« ì Thσ othe≥ disadvantagσ oµ thi≤ optioε i≤ tha⌠ i⌠ require≤ ì tha⌠ thσ databasσ bσ indexeΣ oε authors¼ source¼ anΣ ke∙ ì words« Creatioε oµ thesσ inde° file≤ require≤ usσ oµ disδ ì storagσ spacσ whicΦ iε turε wil∞ limi⌠ thσ sizσ oµ thσ ì databasσ tha⌠ thσ use≥ i≤ ablσ t∩ create« A≤ aε example¼ a⌠ ì thσ timσ oµ thi≤ manual'≤ preparatioε thσ origina∞ ì R+E+T+R+I+E+V+┼ databasσ containeΣ 104│ record≤ whicΦ ì requireΣ 159╦ oµ disδ storagσ anΣ eacΦ oµ thσ inde° file≤ ì (AUTHORS.NDX¼ SOURCE.NDX¼ anΣ KWORDS.NDX⌐ requireΣ ì approximatel∙ 150╦ oµ disδ space« Therefore¼ iµ thσ inde° ì file≤ werσ eliminateΣ REFS.DB╞ coulΣ bσ increaseΣ b∙ ì pproximatel∙ 300░ record≤ anΣ occup∙ thσ samσ amoun⌠ oµ ì spacσ oε thσ origina∞ R+E+T+R+I+E+V+┼ storagσ diskettσ ì (whicΦ wa≤ ß double-sided¼ double-densit∙ 8-incΦ diskettσ ì providinτ onσ mega-bytσ oµ storage)« Thσ followinτ show≤ aε ì example║ *** REFS.DBF CONTAINS 1043 RECORDS *** *** WARNING: This program finds only EXACT matches to the substring entered *** * Files are indexed by first author, first 20 chrs of source, first key word * * Therefore, this program will only find records where an author is the *è* first author, or where a key word is the first key word, etc.!!!! * POSSIBLE FIELDS TO SEARCH ON: (1) AUTHORS (3) KEY WORDS (2) SOURCE _____________________________________________ ** ENTER SEARCH INFORMATION ** FIELD TO SEARCH ON (1-3) :1: SUBSTRING TO LOCATE :Lathrop : DO YOU WANT RESULTS PRINTED? (Y/N) :y: ----------------------- REF. NO. : L0001 AUTHOR(S) : Lathrop, D.A., Bailey, J.C. TITLE : Lack of electrical interaction between proximal bundle branches and subjacent muscle. SOURCE : J. Appl. Physiol. 42(2):235-239, 1977 KEY WORDS : electrotonus - excitability - bundle of His - His-Purkinje system OPTION 5 - LOCATE ARTICLES & MAKE TEXT FILE OPTION 6 - RE-INDEX ARTICLES Thi≤ optioε provide≤ aε eas∙ mean≤ t∩ re-inde° thσ datß ì basσ oε firs⌠ author'≤ name¼ source¼ anΣ firs⌠ ke∙ word« *¬ NOT┼ *¬ Re-indexinτ i≤ requireΣ wheε ne≈ citation≤ ì arσ addeΣ t∩ thσ databasσ iε orde≥ fo≥ optioε ┤ t∩ functioε ì correctly« *¬ IMPORTAN╘ *¬ Thi≤ optioε shoulΣ onl∙ bσ useΣ iµ thσ ì use≥ intend≤ t∩ usσ optioε ┤ (seσ explanatioε iε descriptioε ì oµ optioε 4). OPTIO╬ 7 - MAK┼ LABEL╙ FO╥ ARTICLES Thi≤ optioε provide≤ thσ use≥ witΦ label≤ whicΦ ma∙ bσ ì affixeΣ t∩ thσ origina∞ referencσ articlσ fo≥ filinτ ì purposes« EacΦ labe∞ wil∞ identif∙ thσ owne≥ oµ thσ ì article¼ thσ assigneΣ referencσ numbe≥ anΣ ke∙ word≤ unde≥ ì whicΦ thσ citatioε i≤ fileΣ iε thσ databasσ (REFS.DBF)« ìèBelo≈ i≤ aε examplσ oµ thσ label≤ produceΣ b∙ usσ oµ thi≤ ì option: OPTIO╬ 8 - EDI╘ DATABAS┼ RECORDS Optioε ╖ allow≤ thσ use≥ ß convenien⌠ wa∙ t∩ edi⌠ ì specifiπ databasσ record≤ afte≥ the∙ havσ beeε entered« ┴ ì specifiπ recorΣ ma∙ bσ locateΣ withiε thσ databasσ b∙ ì searchinτ fo≥ i⌠ b∙ it≤ referencσ number¼ autho≥ string¼ ì titlσ string¼ o≥ sourcσ string« Usuall∙ thσ use≥ wil∞ kno≈ ì thσ aggigneΣ referencσ numbe≥ oµ thσ databasσ recorΣ tha⌠ ì he/shσ desire≤ t∩ edit╗ therefore¼ thi≤ i≤ thσ program'≤ ì defaul⌠ modσ fo≥ locatinτ records. *¬ NOT┼ *¬ Iµ morσ thaε onσ recorΣ ha≤ thσ samσ ì referencσ number¼ al∞ oµ thesσ record≤ wil∞ bσ located. Oncσ locateΣ thσ recorΣ ma∙ bσ editeΣ o≥ markeΣ fo≥ ì deletion« Iµ editeΣ thσ olΣ recorΣ wil∞ bσ writteε ove≥ ì witΦ thσ ne≈ information╗ i.e« ß ne≈ recorΣ wil∞ no⌠ bσ ì appendeΣ t∩ thσ file« Iµ thσ use≥ choose≤ t∩ marδ thσ ì recorΣ fo≥ deletion¼ thσ recorΣ wil∞ no⌠ bσ permanentl∙ ì deleteΣ unti∞ thσ filσ i≤ PACKE─ (seσ you≥ dBAS┼ II¬ user'≤ ì manual)« Finally¼ thσ prograφ wil∞ promp⌠ thσ use≥ witΦ ß ì questioε askinτ iµ he/shσ want≤ t∩ permanentl∙ removσ thσ ì markeΣ file≤ froφ thσ datß base« Iµ thσ use≥ answer≤ ì affirmativel∙ t∩ thi≤ questioε thσ filσ wil∞ bσ PACKE─ anΣ ì al∞ thσ record≤ markeΣ fo≥ deletioε wil∞ bσ removeΣ froφ thσ ì fileí *¬ IMPORTAN╘ *¬ Afte≥ thσ databasσ ha≤ beeε PACKE─ thσ ì deleteΣ record≤ ma∙ neve≥ bσ recovered-- the∙ arσ GONEí Bσ ì carefu∞ wheε usinτ thi≤ option. ********¬ *********¬ ********¬ ********* ********¬ *********¬ ********¬ ********* Yo⌡ arσ no≈ read∙ t∩ experimen⌠ witΦ R+E+T+R+I+E+V+E« ì ╔ hopσ tha⌠ yo⌡ wil∞ enjo∙ usinτ thσ systeφ anΣ tha⌠ i⌠ wil∞ ì hel≡ yo⌡ t∩ maintaiε ß completσ filσ oµ you≥ referencσ ì articlσ citations¼ n∩ matte≥ wha⌠ you≥ area≤ oµ interestí -------------------- * dBASE II* was developed and is distributed by, Ashton-Tate, Culver City, California ENU PROGRAM: NOTE -dBASE II EXECUTIVE COMMAND FILE <RETRIEVE.CMD> ERASE SET TALK OFF STORE 'mm/dd/yy' TO M:DATE STORE T TO NODATE STORE ' ' TO DR @ 2,33 SAY 'R+E+T+R+I+E+V+E' @ 12,40 SAY 'BY' @ 14,29 SAY 'David A. Lathrop' @ 16,27 SAY '-- COPYRIGHTED (C) 1983 --' @ 17,26 SAY '-- Data Based ADVISOR --' DO WHILE NODATE @ 5,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE; '99/99/99' READ IF VAL($(M:DATE,1,2))<1; .OR. VAL($(M:DATE,1,2))>12; .OR. VAL($(M:DATE,4,2))<1; .OR. VAL($(M:DATE,4,2))>31; .OR. VAL($(M:DATE,7,2))<83 STORE 'mm/dd/yy' TO M:DATE @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****' STORE T TO NODATE ELSE STORE F TO NODATE ENDIF ENDDO SET DATE TO &M:DATE @ 5,23 SAY ' ' @ 7,20 SAY ' ' @ 9,20 SAY 'ENTER STORAGE DISK DRIVE LETTER '; GET DR PICTURE 'A' READ STORE DR+':REFS' TO FILE1 DO WHILE T ERASE ? ? ' *** R+E+T+R+I+E+V+E MENU ***' ? ? ' 0 - EXIT' ? ' 1 - ENTER NEW ARTICLES' ? ' 2 - ENTER NEW ARTICLES WITH' ? ' (AUTOMATIC REFERENCE'; ' NUMBERING)' ? ' 3 - FIND ARTICLES' ? ' 4 - QUICKLY FIND ARTICLES' ? ' (BY FIRST AUTHOR, FIRST'; ' KEY WORD,'è ? ' OR FIRST 20 LTRS OF'; ' SOURCE)' ? ' 5 - RE-INDEX FILES' ? ' 6 - MAKE LABELS FOR ARTICLES' ? ' 7 - EDIT DATA BASE RECORDS' ? ? ? ? ? ? ? ? 'ENTER DESIRED ACTION' WAIT TO ACTION DO CASE CASE ACTION='0' ERASE USE &FILE1 GO BOTTOM STORE STR(#,6) TO REC:NO @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+; ' RECORDS ***' @ 16,1 SAY ' ' SET TALK ON QUIT CASE ACTION='1' DO NEWENTRY CASE ACTION='2' DO AUTONUMB CASE ACTION='3' DO FIND CASE ACTION='4' DO FASTFIND CASE ACTION='5' DO INDEX CASE ACTION='6' DO LABEL CASE ACTION='7' DO EDIT OTHERWISE ? '**** Invalid response, re-enter ****' ENDCASE ENDDO RETURN LISTING OF OPTION 1 PROGRAM: NOTE - EXTENDED COMMAND FILE <NEWENTRY.CMD> USE &FILE1 GO BOTTOM DO WHILE T STORE ' ' TO REF STORE ' ' TO AU1 STORE ' ' TO AU2 STORE ' ' TO TI1 STORE ' ' TO TI2 STORE ' ' TO TI3 STORE ' ' TO TI4 STORE ' ' TO SO1 STORE ' ' TO SO2 STORE ' ' TO KW1 STORE ' ' TO KW2 ERASE @ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM' @ 5,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEAS┼ CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,; SO1,SO2,SO3,KW1,KW2,KW3 RETURN ENDIF @ 5,26 SAY ' ' @ 23,0 SAY ' ' @ 7,14 SAY 'REF. NO. ' GET REF PICTURE 'AX999' @ 9,15 SAY 'AUTHORS ' GET AU1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,22 SAY ' ' GET AU2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,17 SAY 'TITLE ' GET TI1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 13,22 SAY ' ' GET TI2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 14,22 SAY ' ' GET TI3 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 15,22 SAY ' ' GET TI4 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 17,16 SAY 'SOURCE ' GET SO1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 18,22 SAY ' ' GET SO2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 21,22 SAY ' ' GET KW2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE AU1+AU2 TO AU3 STORE TI1+TI2+TI3+TI4 TO TI5è STORE SO1+SO2 TO SO3 STORE KW1+KW2 TO KW3 APPEND BLANK REPLACE REF:NO WITH REF, AUTHORS WITH AU3,; TITLE WITH TI5,SOURCE WITH SO3, KWORDS WITH KW3 ENDDO LISTING OF OPTION 2 PROGRAM: NOTE - EXTENDED COMMAND FILE <AUTONUMB.CMD> ERASE USE &FILE1 DO WHILE T STORE 'Y' TO CONTINUE STORE ' ' TO REF STORE ' ' TO AU1 STORE ' ' TO AU2 STORE ' ' TO TI1 STORE ' ' TO TI2 STORE ' ' TO TI3 STORE ' ' TO TI4 STORE ' ' TO SO1 STORE ' ' TO SO2 STORE ' ' TO KW1 STORE ' ' TO KW2 ERASE @ 3,25 SAY 'REPRINT INFORMATION ENTRY FORM' @ 7,15 SAY 'AUTHORS ' GET AU1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 8,22 SAY ' ' GET AU2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,17 SAY 'TITLE ' GET TI1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 11,22 SAY ' ' GET TI2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,22 SAY ' ' GET TI3 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 13,22 SAY ' ' GET TI4 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 15,16 SAY 'SOURCE ' GET SO1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 16,22 SAY ' ' GET SO2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 18,13 SAY 'KEY WORDS ' GET KW1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 19,22 SAY ' ' GET KW2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE $(AU1,1,1) TO SEARCH FIND &SEARCH STORE T TO AGAIN DO WHILE AGAIN IF !(SEARCH)$!(REF:NO) STORE VAL($(REF:NO,3,3)) TO NUMBER STORE NUMBER+1 TO NUMBER SKIP IF !(SEARCH)$!(REF:NO) STORE T TO AGAIN ELSE STORE F TO AGAINè ENDIF IF EOF STORE F TO AGAIN ENDIF ENDDO GO BOTTOM APPEND BLANK STORE SEARCH+STR(NUMBER,4) TO REF @ 21,14 SAY 'REF. NO. :'+REF+':' STORE AU1+AU2 TO AU3 STORE TI1+TI2+TI3+TI4 TO TI5 STORE SO1+SO2 TO SO3 STORE KW1+KW2 TO KW3 REPLACE REF:NO WITH REF REPLACE AUTHORS WITH AU3 REPLACE TITLE WITH TI5 REPLACE SOURCE WITH SO3 REPLACE KWORDS WITH KW3 STORE 5 TO L DO WHILE L<21 @ L,13 SAY ' ' STORE L+1 TO L ENDDO @ 10,26 SAY 'WANT TO CONTINUE? (Y/N) ' GET; CONTINUE PICTURE 'A' READ IF !(CONTINUE)='N' RELEASE CONTINUE,REF,AU1,AU2,AU3,TI1,TI2,TI3,TI4,TI5,; SO1,SO2,SO3,KW1,KW2,KW3 RETURN ENDIF ENDDO LISTING OF OPTION 3 PROGRAM: NOTE - EXTENDED COMMAND FILE <FIND.CMD> USE &FILE1 GO BOTTOM STORE STR(#,4) TO REC:NO STORE TRIM(REC:NO) TO REC:NO STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***'; TO MESSAGE STORE 40-(LEN(MESSAGE)/2) TO COLUMN ERASE @ 4,COLUMN SAY MESSAGE @ 6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:' @ 8,28 SAY '(1) REF:NO (4) SOURCE' @ 9,28 SAY '(2) AUTHORS (5) KWORDS' @ 10,28 SAY '(3) TITLE' STORE ' ' TO FLD1 STORE ' ' TO FLD2 STORE ' ' TO FLD3 STORE ' ' TO SSTR1 STORE ' ' TO SSTR2 STORE ' ' TO SSTR3 STORE 'N' TO PRINT @ 12,20 SAY '________________________________________' @ 14,25 SAY '** ENTER SEARCH INFORMATION **' @ 16,6 SAY '1st FIELD TO SEARCH ON (1-5) ' GET FLD1; PICTURE '9' @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE; 'XXXXXXXXXXXXXXX' @ 17,6 SAY '2nd FIELD TO SEARCH ON (1-5) ' GET FLD2; PICTURE '9' @ 17,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR2 PICTURE; 'XXXXXXXXXXXXXXX' @ 18,6 SAY '3rd FIELD TO SEARCH ON (1-5) ' GET FLD3; PICTURE '9' @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE; 'XXXXXXXXXXXXXXX' @ 20,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) '; GET PRINT PICTURE 'A' READ IF FLD1='1' STORE 'REF:NO' TO FLD1 ELSE IF FLD1='2' STORE 'AUTHORS' TO FLD1 ELSE IF FLD1='3' STORE 'TITLE' TO FLD1 ELSE IF FLD1='4' STORE 'SOURCE' TO FLD1 ELSE IF FLD1='5'è STORE 'KWORDS' TO FLD1 ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD2='1' STORE 'REF:NO' TO FLD2 ELSE IF FLD2='2' STORE 'AUTHORS' TO FLD2 ELSE IF FLD2='3' STORE 'TITLE' TO FLD2 ELSE IF FLD2='4' STORE 'SOURCE' TO FLD2 ELSE IF FLD2='5' STORE 'KWORDS' TO FLD2 ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD3='1' STORE 'REF:NO' TO FLD3 ELSE IF FLD3='2' STORE 'AUTHORS' TO FLD3 ELSE IF FLD3='3' STORE 'TITLE' TO FLD3 ELSE IF FLD3='4' STORE 'SOURCE' TO FLD3 ELSE IF FLD3='5' STORE 'KWORDS' TO FLD LABELS ' GET B:REF; PICTURE 'X' READ @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+'-ARTICLE; LABELED ' GET REF PICTURE '9999' READ @ 20,27 SAY '** PRINTER READY? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 20,27 SAY ' ' @ 23,0 SAY ' ' @ 20,29 SAY '** LOCATING RECORDS **' LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NOèSET FORMAT TO PRINT SET EJECT OFF DO WHILE .NOT. EOF STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,17 SAY M:NAME USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' STORE LINE+2 TO LINE @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINE @ LINE,1 SAY KW1 IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,1 SAY KW2 STORE LINE+5 TO LINE ENDIF IF KW2=' ' STORE LINE+6 TO LINE ENDIF CONTINUE ENDDO @ LINE+1,1 SAY ' ' RELEASE B:REF,REF,M:NAME,CONTINUE SET FORMAT TO SCREEN RETURN LISTING OF OPTION 4 PROGRAM: NOTE - EXTENDED COMMAND FILE <FASTFIND.CMD> USE &FILE1 GO BOTTOM STORE STR(#,4) TO REC:NO STORE TRIM(REC:NO) TO REC:NO STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***'; TO MESSAGE STORE 40-(LEN(MESSAGE)/2) TO COLUMN ERASE @ 1,COLUMN SAY MESSAGE @ 3,1 SAY 'WARNING: This program finds only EXACT '; 'matches to the substring entered ***' @ 4,1 SAY '* Files are indexed by first author, first '; '20 chrs of source, first key word *' @ 5,1 SAY '* Therefore, this program will only find '; 'records where an author is the *' @ 6,1 SAY '* first author, or where a key word is the '; 'first key word!!!! *' @ 8,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 8,26 SAY ' ' @ 23,0 SAY ' ' @ 8,26 SAY 'POSSIBLE FIELDS TO SEARCH ON:' @ 10,27 SAY '(1) AUTHORS (3) KEY WORDS' @ 11,27 SAY '(2) SOURCE' STORE ' ' TO FLD STORE ' ' TO SSTR STORE 'N' TO PRINT @ 13,20 SAY '________________________________________' @ 15,25 SAY '** ENTER SEARCH INFORMATION **' @ 17,10 SAY 'FIELD TO SEARCH ON (1-3) ' GET FLD PICTURE '9' @ 19,10 SAY 'SUBSTRING TO LOCATE ' GET SSTR PICTURE ; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 21,22 SAY 'DO YOU WANT RESULTS PRINTED? (Y/N) '; GET PRINT PICTURE 'A' READ IF FLD='1' STORE 'AUTHORS' TO FLD ELSE IF FLD='2' STORE 'SOURCE' TO FLD ELSE IF FLD='3' STORE 'KWORDS' TO FLD ENDIF ENDIF ENDIFèSTORE DR+':'+FLD TO FLD1 STORE TRIM(SSTR) TO SSTR @ 21,22 SAY ' ' @ 21,27 SAY '*** LOCATING RECORD(S) ***' USE &FILE1 INDEX &FLD1 FIND &SSTR STORE T TO AGAIN IF !(PRINT)='Y' ERASE @ 11,23 SAY '*** MAKE SURE PRINTER IS READY ***' @ 13,24 SAY '*** PRESS ANY KEY TO CONTINUE ***' @ 22,1 SAY ' ' WAIT ERASE @ 12,31 SAY '**** SEARCHING ****' @ 22,1 SAY ' ' STORE 5 TO LINE SET FORMAT TO PRINT SET EJECT OFF DO WHILE AGAIN IF !(SSTR)$!(&FLD) STORE $(AUTHORS,1,40) TO AU1 STORE $(AUTHORS,41,40) TO AU2 STORE $(TITLE,1,40) TO TI1 STORE $(TITLE,41,40) TO TI2 STORE $(TITLE,81,40) TO TI3 STORE $(TITLE,121,40) TO TI4 STORE $(SOURCE,1,40) TO SO1 STORE $(SOURCE,41,40) TO SO2 STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,14 SAY 'REF. NO.: '+REF:NO USING; 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINE @ LINE,13 SAY 'AUTHOR(S): '+AU1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF AU2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY AU2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+1 TO LINE @ LINE,17 SAY 'TITLE: '+TI1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI3<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI3 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF TI4<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI4 USING;è 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF ENDIF ENDIF STORE LINE+1 TO LINE @ LINE,16 SAY 'SOURCE: '+SO1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF SO2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY SO2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+1 TO LINE @ LINE,13 SAY 'KEY WORDS: '+KW1 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY KW2 USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ENDIF STORE LINE+2 TO LINE IF LINE=55 .OR. LINE>55 SET EJECT ON EJECT STORE 5 TO LINE ENDIF ENDIF SKIP IF !(SSTR)$!(&FLD) STORE T TO AGAIN ELSE STORE F TO AGAIN ENDIF ENDDO @ 60,1 SAY ' ' SET FORMAT TO SCREEN ERASE @ 11,21 SAY '************** FINISHED ***************' @ 13,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' ' WAIT RETURN ENDIF STORE 1 TO LINE DO WHILE AGAIN IF !(SSTR)$!(&FLD) STORE $(AUTHORS,1,40) TO AU1 STORE $(AUTHORS,41,40) TO AU2 STORE $(TITLE,1,40) TO TI1 STORE $(TITLE,41,40) TO TI2 STORE $(TITLE,81,40) TO TI3 STORE $(TITLE,121,40) TO TI4 STORE $(SOURCE,1,40) TO SO1 STORE $(SOURCE,41,40) TO SO2 STORE $(KWORDS,1,40) TO KW1è STORE $(KWORDS,41,40) TO KW2 ERASE @ LINE,14 SAY 'REF. NO.: '+REF:NO STORE LINE+1 TO LINE @ LINE,13 SAY 'AUTHOR(S): '+AU1 IF AU2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY AU2 ENDIF STORE LINE+1 TO LINE @ LINE,17 SAY 'TITLE: '+TI1 IF TI2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI2 IF TI3<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI3 IF TI4<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY TI4 ENDIF ENDIF ENDIF STORE LINE+1 TO LINE @ LINE,16 SAY 'SOURCE: '+SO1 IF SO2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY SO2 ENDIF STORE LINE+1 TO LINE @ LINE,13 SAY 'KEY WORDS: '+KW1 IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,24 SAY KW2 ENDIF STORE LINE+2 TO LINE IF LINE=5 .OR. LINE>5 @ 14,26 SAY '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF STORE 1 TO LINE ENDIF ENDIF ERASE @ 12,31 SAY '**** SEARCHING ****' SKIP IF !(SSTR)$!(&FLD) STORE T TO AGAIN ELSE STORE F TO AGAIN ENDIF ENDDOè@ 20,21 SAY '************** FINISHED ***************' @ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' ' WAIT USE RELEASE REC:NO,MESSAGE,COLUMN,FLD,SSTR,PRINT,CONTINUE,FLD1 RETURN LISTING OF OPTION 5 PROGRAM: NOTE - EXTENDED COMMAND FILE <TEXT.CMD> USE &FILE1 GO BOTTOM STORE ' ' TO NAME STORE STR(#,4) TO REC:NO STORE TRIM(REC:NO) TO REC:NO STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***'; TO MESSAGE STORE 40-(LEN(MESSAGE)/2) TO COLUMN ERASE @ 4,COLUMN SAY MESSAGE @ 6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:' @ 8,28 SAY '(1) REF:NO (4) SOURCE' @ 9,28 SAY '(2) AUTHORS (5) KWORDS' @ 10,28 SAY '(3) TITLE' STORE ' ' TO FLD1 STORE ' ' TO FLD2 STORE ' ' TO FLD3 STORE ' ' TO SSTR1 STORE ' ' TO SSTR2 STORE ' ' TO SSTR3 STORE 'N' TO PRINT @ 12,20 SAY '________________________________________' @ 14,25 SAY '** ENTER SEARCH INFORMATION **' @ 16,6 SAY '1st FIELD TO SEARCH ON (1-5) '; GET FLD1 PICTURE '9' @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE; 'XXXXXXXXXXXXXXX' @ 17,6 SAY '2nd FIELD TO SEARCH ON (1-5) '; GET FLD2 PICTURE '9' @ 17,40 SAY 'SUBSTRING TO LOCATE '; GET SSTR2 PICTURE 'XXXXXXXXXXXXXXX' @ 18,6 SAY '3rd FIELD TO SEARCH ON (1-5) '; GET FLD3 PICTURE '9' @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE; 'XXXXXXXXXXXXXXX' READ IF FLD1='1' STORE 'REF:NO' TO FLD1 ELSE IF FLD1='2' STORE 'AUTHORS' TO FLD1 ELSE IF FLD1='3' STORE 'TITLE' TO FLD1 ELSE IF FLD1='4' STORE 'SOURCE' TO FLD1 ELSE IF FLD1='5' STORE 'KWORDS' TO FLD1è ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD2='1' STORE 'REF:NO' TO FLD2 ELSE IF FLD2='2' STORE 'AUTHORS' TO FLD2 ELSE IF FLD2='3' STORE 'TITLE' TO FLD2 ELSE IF FLD2='4' STORE 'SOURCE' TO FLD2 ELSE IF FLD2='5' STORE 'KWORDS' TO FLD2 ENDIF ENDIF ENDIF ENDIF ENDIF IF FLD3='1' STORE 'REF:NO' TO FLD3 ELSE IF FLD3='2' STORE 'AUTHORS' TO FLD3 ELSE IF FLD3='3' STORE 'TITLE' TO FLD3 ELSE IF FLD3='4' STORE 'SOURCE' TO FLD3 ELSE IF FLD3='5' STORE 'KWORDS' TO FLD3 ENDIF ENDIF ENDIF ENDIF ENDIF STORE TRIM(SSTR1) TO SSTR1 STORE TRIM(SSTR2) TO SSTR2 STORE TRIM(SSTR3) TO SSTR3 IF FLD3<>' ' @ 20,22 SAY ' ' @ 20,27 SAY '*** LOCATING RECORD(S) ***' LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2); .AND. !(SSTR3)$!(&FLD3) ELSE IF FLD2<>' ' @ 20,22 SAY ' ' @ 20,27 SAY '*** LOCATING RECORD(S) ***'è LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2) ELSE @ 20,22 SAY ' ' @ 20,27 SAY '*** LOCATING RECORD(S) ***' LOCATE FOR !(SSTR1)$!(&FLD1) ENDIF ENDIF ERASE @ 12,15 SAY "NAME OF 'TEXT FILE' TO WRITE RESULTS TO "; GET NAME PICTURE 'XXXXXXXXXXXXXXXXXXXX' READ SET ALTERNATE TO &NAME SET ALTERNATE ON DO WHILE .NOT. EOF STORE $(AUTHORS,1,40) TO AU1 STORE $(AUTHORS,41,40) TO AU2 STORE $(TITLE,1,40) TO TI1 STORE $(TITLE,41,40) TO TI2 STORE $(TITLE,81,40) TO TI3 STORE $(TITLE,121,40) TO TI4 STORE $(SOURCE,1,40) TO SO1 STORE $(SOURCE,41,40) TO SO2 STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 ? REF:NO ? AU1 IF AU2<>' ' ? AU2 ENDIF ? TI1 IF TI2<>' ' ? TI2 IF TI3<>' ' ? TI3 IF TI4<>' ' ? TI4 ENDIF ENDIF ENDIF ? SO1 IF SO2<>' ' ? SO2 ENDIF ? KW1 IF KW2<>' ' ? KW2 ENDIF ? CONTINUE ENDDO SET ALTERNATE OFF ERASE @ 20,21 SAY '************** FINISHED ***************' @ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***' @ 22,1 SAY ' 'èWAIT RELEASE REC:NO,MESSAGE,COLUMN,FLD1,FLD2,FLD3,SSTR1,SSTR2,; SSTR3,PRINT,CONTINUE RETURN LISTING OF OPTION 6 PROGRAM: NOTE - EXTENDED COMMAND FILE <INDEX.CMD> USE &FILE1 GO BOTTOM STORE STR(#,6) TO REC:NO ERASE @ 3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+'; RECORDS ***' @ 5,15 SAY; '____________________________________________________' @ 6,14 SAY; '| |' @ 7,14 SAY; '| *** IMPORTANT NOTE *** |' @ 8,14 SAY; '| |' @ 9,14 SAY; '| Re-indexing the reference file on authors, source, |' @ 10,14 SAY; '| and key words requires serveral minutes. The |' @ 11,14 SAY; '| indexed files are ONLY required for option 4 |' @ 12,14 SAY; '| (QUICKLY FIND ARTICLES) to function. If you do |' @ 13,14 SAY; '| not intend to use this option STOP now! This will |' @ 14,14 SAY; '| save many sectors of disk storage disk space!!!!! |' @ 15,14 SAY; '| |' @ 16,14 SAY; '| ** WANT TO CONTINUE? (Y/N) ** |' @ 17,14 SAY; '|____________________________________________________|' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N' RELEASE REC:NO,ANSWER RETURN ENDIF ERASE @ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO "; "AUTHOR.NDX ****" STORE DR+':AUTHORS' TO FILE INDEX ON AUTHORS TO &FILE USE &FILE1 ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N'è RELEASE REC:NO,ANSWER RETURN ENDIF ERASE @ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****' STORE DR+':SOURCE' TO FILE INDEX ON SOURCE TO &FILE USE &FILE1 ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 5,26 SAY '** WANT TO CONTIUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO ANSWER IF !(ANSWER)='N' RELEASE REC:NO,ANSWER RETURN ENDIF ERASE @ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****' STORE DR+':KWORDS' TO FILE INDEX ON KWORDS TO &FILE USE ERASE @ 11,28 SAY'**** INDEX COMPLETE ****' @ 13,18 SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***' @ 22,1 SAY ' ' WAIT RELEASE REC:NO,ANSWER RETURN LISTING OF OPTION 7 PROGRAM: NOTE -- EXTENDED COMMAND FILE <LABEL.CMD> USE &FILE1 GO TOP STORE 2 TO LINE STORE ' ' TO B:REF STORE 'Y' TO CONTINUE STORE ' ' TO M:NAME STORE ' ' TO REF ERASE @ 2,17 SAY; "******************************************************" @ 3,17 SAY; "* *" @ 4,17 SAY; "* This program will type on 1 1/2 x 4 inch pregummed *" @ 5,17 SAY; "* tractorfeed labels (1) the file owner's name, (2) *" @ 6,17 SAY; "* the alphanumeric number under which the article is *" @ 7,17 SAY; "* stored, and (3) the key words under which the *" @ 8,17 SAY; "* article is referenced. *" @ 9,17 SAY; "* *" @ 10,17 SAY; "******************************************************" @ 14,22 SAY '** DO YOU WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 14,22 SAY ' ' @ 23,0 SAY ' ' @ 14,9 SAY "ENTER FILE OWNER'S NAME " GET M:NAME ; PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 16,11 SAY 'ENTER LETTER OF REFERENCE NUMBER FOR; WHICH YOU WANT LABELS ' GET B:REF PICTURE 'X' READ @ 18,19 SAY 'ENTER NUMBER OF LAST '+!(B:REF)+; '-ARTICLE LABELED ' GET REF PICTURE '9999' READ @ 20,27 SAY '** PRINTER READY? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RETURN ENDIF @ 20,27 SAY ' ' @ 23,0 SAY ' 'è@ 20,29 SAY '** LOCATING RECORDS **' LOCATE FOR !(B:REF)$REF:NO .AND. !(REF)$REF:NO SET FORMAT TO PRINT SET EJECT OFF DO WHILE .NOT. EOF STORE $(KWORDS,1,40) TO KW1 STORE $(KWORDS,41,40) TO KW2 @ LINE,17 SAY M:NAME USING; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' STORE LINE+2 TO LINE @ LINE,1 SAY 'REF. NO.: '+REF:NO USING 'XXXXXXXXXXXXXXX' STORE LINE+1 TO LINE @ LINE,1 SAY KW1 IF KW2<>' ' STORE LINE+1 TO LINE @ LINE,1 SAY KW2 STORE LINE+5 TO LINE ENDIF IF KW2=' ' STORE LINE+6 TO LINE ENDIF CONTINUE ENDDO @ LINE+1,1 SAY ' ' RELEASE B:REF,REF,M:NAME,CONTINUE SET FORMAT TO SCREEN RETURN LISTING OF OPTION 8 PROGRAM: NOTE - EXTENDED COMMAND FILE <EDIT.CMD> USE &FILE1 ERASE @ 3,26 SAY '** EDIT DATA BASE RECORDS **' @ 5,21 SAY 'EACH RECORD CONSISTS OF 406 CHARACTERS' @ 6,21 SAY 'DIVIDED INTO THE FOLLOWING FIVE FIELDS' @ 8,26 SAY 'FLD NAME TYPE WIDTH' @ 9,26 SAY '001 REF:NO C 005' @ 10,26 SAY '002 AUTHORS C 080' @ 11,26 SAY '003 TITLE C 160' @ 12,26 SAY '004 SOURCE C 080' @ 13,26 SAY '005 KWORDS C 080' @ 14,26 SAY '**TOTAL** 00406' @ 16,21 SAY 'ANY RECORD WITHIN THE DATA BASE MAY BE' @ 17,21 SAY 'LOCATED BY SEARCHING FOR IT BY ITS' @ 18,21 SAY 'REFERENCE NUMBER, AUTHOR(S), TITLE OR' @ 19,21 SAY 'SOURCE. ONCE LOCATED THE INFORMATION' @ 20,21 SAY 'MAY BE EDITED, OR THE ENTIRE RECORD MAY' @ 21,21 SAY 'BE DELETED. PRESS ANY KEY TO CONTINUE.' @ 22,1 SAY ' ' WAIT ERASE @ 1,14 SAY; 'THE FOLLOWING CONTROL CHARACTERS ARE USED IN EDITING' @ 3,14 SAY; '<CTRL>D - MOVE CURSOR RIGHT <CTRL>E - MOVE CURSOR UP' @ 4,14 SAY; '<CTRL>S - MOVE CURSOR LEFT <CTRL>X - MOVE CURSOR DOWN' @ 5,14 SAY; '<CTRL>G - DELETE CHARACTER <CTRL>Y - DLETETE LINE' @ 7,26 SAY; '** WANT TO CONTINUE? (Y/N) **' @ 22,1 SAY ' ' WAIT TO CONTINUE IF !(CONTINUE)='N' RELEASE CONTINUE RETURN ENDIF @ 7,26 SAY ' ' @ 23,0 SAY ' ' STORE '1' TO FLD STORE 'N' TO DEL STORE ' ' TO SSTR STORE ' ' TO SSTR1 STORE ' ' TO SSTR2 STORE ' ' TO SSTR3 STORE ' ' TO SSTR4 @ 7,19 SAY 'ENTER FIELD TO SEARCH ON (1,2,3, OR 4) '; GET FLD PICTURE '9' READ IF FLD='1'è STORE 'REF:NO' TO FLD @ 7,17 SAY; ' ' @ 7,25 SAY 'ENTER REFERENCE NUMBER '; GET SSTR PICTURE 'AX999' READ ELSE IF FLD='2' STORE 'AUTHORS' TO FLD @ 7,17 SAY; ' ' @ 7,27 SAY '** ENTER AUTHOR(S) NAME **' @ 9,20 GET SSTR1 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 10,20 GET SSTR2 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE SSTR1+SSTR2 TO SSTR ELSE IF FLD='3' STORE 'TITLE' TO FLD @ 7,17 SAY; ' ' @ 7,32 SAY '** ENTER TITLE **' @ 9,20 GET SSTR1 PICTURE; 'XXXXXXXXXXXXXXXXXXXX @ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 11,20 GET SSTR3 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' @ 12,20 GET SSTR4 PICTURE; 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' READ STORE SSTR1+SSTR2+SSTR3+SSTR4 TO SSTR ELSE IF FLD='4' STORE 'SOURCE' TO FLD @ 7,17 SAY; '